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OPCOMDEF.SDL = system definition file for OPCOM internal structures 


ersion: *v04-000' 


COPYRIGHT (<) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coriee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ahi THE 
INCLUSION OF THE ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vuanereRacee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT Ione NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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{++ 
{ 
; FACILITY: OPCOM = Operator Communications 
: ABSTRACT: 
{ This file contains the SDL source for OPCOM internal structure 
t definitions. 
{ AUTHOR: CW Hobbs CREATION DATE: 27-Jun-1983 
¢ MODIFICATION HISTORY: 
¢ v03-003 CWH?169 CW Hobbs 55-May-1984 
; Second pass for cluster-wide OPCOM: 
- ~ Remove CLUSTER ENABLED bit, redo EFN numbers, add NODE_LEAVING 
t Add 80D and COB structures 
; - = add (SID. to clm header & bump structure version numbers for clm structures 
{ v03-002 cusooe CW Hobbs 16-Sep-1983 
f d io error bit 
module OPCOMDEF; 
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/* 
. Define bit vector names for globa! stat 


IN_VAXc Luster /* 
) equals 0 increment 1 prefix GBLSTS_; 


/* 
Jn Define event flag numbers 
we 


ASYNCH, /* Throwaw 
BRKTHRU, /* Break t 
MAILBOX, /* Mailbox 
TIME _STAMP /* Timer a 
) equals 1 increment 1 prefix EFN_; 


/* Define the common data structure header 
/* ALL of the data structure definitions t 


/* However, some of the fields are used di 
fs depending on the type of data structure 


Define the common header status bit 
The low 16 bits are common for all 


~SSN SSO 


1 
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us 
constant ( 
SHUTDOWN PENDING, /* OPCOM is doing an orderly shutdown 
LOGGING ENABLED, /* Log events 
LAST_LOG FAILED, /* Last log attempt failed 
LOGFILE CLOSED, /* Logfile closed 
OLD_FORMAT_MSG /* This is an old format msg 
TIMESTAMP_PENDING, /* Timestamp function pending 
° /* OPCOM is busy 
FLUSH PENDING, /* Must flush log file 


Member of VAXcluster 


ay for asynch i/o 

hrough service 
reads 

st 


fields. 
hat follow 


/* this one have the first few fields in common. 


fferently, 


cuerepate HDR_AGGREGATE structure prefix HDR_ fill; 
FLINK /* 


Longword unsigned; Fink to next data structure 
BLINK lLongword unsigned; /* Blink to last data structure 
SIZE word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
SCOPE byte unsigned; /* Scope of data structure 
SEQNUM longword unsigned; /* Sequence # of data structure ren) 
IDENT longword ‘unsigned; /* Cluster-wide ident (seqnum from original create) 
CSI Longword unsigned; /* Cluster system id 
NOD ongword unsigned; /* Pointer to NOD structure 
SCS_ID union 3 
SYSTEMID character Length 6; /* SCS System ID 
SCS_ID_S structure fill; 
SYSTEMIDOL Lonquore unsigned; /* Low order longword 
SYSTEMIDH word unsigned; /* High order word 
end SCS_ID_S; 
end SCS_ID; 
LLER word unsigned; /* Spare 
™R longword unsigned; /* Back pointer to main data structure 


Ss. 
data structures. 


The high 16 bits are data structure specific. 


word unsigned; 


STATUS structure long d 
LAL field mask; /* Block is from LAL 
© 
fie 


el 
bit 
BRD bit 
LOG bit 
end STATUS; 
end HDR_AGGREGATE; 


ld mask; /* Broadcast this message 
ld mask; /* Log this message 


/* 
/* A system mailbox measepe contains a header. Here we will define 
. the offsets to the fields inside that header. 


aggregate MSG_AGGREGATE structure prefix MSG_ fill; 


MSGTYPE word unsigned; /* Message Fype code 

REPL YMBX word unsigned; /* Reply mailbox unit number 
PRIVMASK1 lLongword unsigned; /* First LW of privilege mask 
PRIVMASK2 Longword unsigned; /* Second LW of privilege mask 
SENDERUIC longword unsigned; /* UIC of request sender 
USERNAME character length 12; /* Pointer to start of username 
ACCOUNT character Length 8; /* Pointer to start of account 
BASEPRI byte unsigned; /* Sender's base priority 
FILLER_2 byte unsigned fill; /* ** 1 spare byte ** 


end MSG_AGGREGATE; 
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/* 
- Define Request Context Block (RQCB) fields. 


aggregate RQCB_AGGREGATE structure prefix ROCB_ fill; 


/* | 
os common header 
| 
FLINK Longword unsigned; /* Flink to next RQCB 
BLINK Longword unsigned; /* Blink to Last RQCB 
SIZE word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
FILLER_1 byte unsigned fill; /* ** 1 spare byte ** 
re SEQNUM longword unsigned; /* RQCB sequence number 
. Data above this mark is owned by the RQCB allocation routines 
OVERLAY character Length 0; /* Address where OK to change RQCB | 
, #overlay_mark = .; 
® 
IDENT lLongword unsigned; /* Cluster-wide ident (seqnum from original create) 
CSID Longword unsigned; /* Cluster system id 
NOD Lgopyvord unsigned; /* Poincer to NOD structure 
SCS_ID union fill; 


SYSTEMID character Length 6; /* SCS System ID 
SCS_ID_S structure fill; 


“SYSTEMIDL Longword unsigned; /* Low order longword 
be word unsigned; /* High order word 
en 


word unsigned; /* Spare 
lLongword unsigned; /* Backpointer to OCD 


os Define request status bits. 


STATUS structure longword unsigned prefix RQSTS_; 
FILLER_1 bitfield length 16 f 3 
IMPCANTEL bitfield mask; /* Request implicitly canceled 
end STATUS; 


d SCS_ID;~ ~° 
/* 
. Following 38 bytes are copied from the system mailbox message header | 

| 


MSGTYPE word unsigned; /* Message type code 

REPL YMBX word unsigned; /* Reply mailbox unit number 

PRIVMASK1  longword unsigned; /* First LW of privilege mask 

PRIVMASK2  longword unsigned; /* Second LW of privilege mask 

SENDERUIC longword unsigned; /* UIC of request sender 
USERNAME character length 12; /* Pointer to start of username 
ACCOUNT character Length 8; /* Pointer to start of account 

BASEPRI byte unsigned; /* Sender's base priority 
FILLER 2 byte unsigned fill; /e ee 1 spare byte ** 
ROSTCODE byte unsigned; /* Request type code 

SCOPE byte unsigned; /* Scope of request 

OPTION lLongword unsigned; /* Request independent options 


P Ss 
RQ_OPTIONS lLongword unsigned; /* Request dependent options 
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ATTNMASK1  Longword unsigned; /* 
ATTNMASK2  Longword unsigned; /* 
RQSTID Longword unsigned; /* 


te longword unsigned; /* 
oe End of copied area, note that offset of 


pe MCB Longword unsigned; /* 


RQSTNUM ers unsigned; /* 
USERNAMELEN word unsigned; /* 
pp eniLen word unsigned; /* 


~ Define operator status bits. 


OPRSTS structure word unsigned pre 
bitfield mask; /* 
REMTRM bitfield mask; /* 
MBX bitfield mask; /* 
IMPDISABLE bitfield mask; /* 
end OPRSTS; 
MBXSIZE word unsigned; /* 
OPER_LEN Longword unsigned; /* 
OPER_PTR Longword unsigned; /* 
TEXT_LEN Longword unsigned; /* 
TEXT PTR lLongword unsigned; /* 
DSBLFLINK  longword unsigned; /* 
DSBLBLINK lLongword unsigned; /* 


constant SIZE equals of /* 
constant OVERLAY_SIZE equals .-#overlay 


end RQCB_AGGREGATE; 
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Attention mask part 1 
Attention mask part ¢ 
User request identifier 
Requestor VIC 


MCB is used to determine end of copy 
Address of MCB 


Request number 
Length of username, blanks trimmed 
Length of account, blanks trimmed 


fix OPRSTS_; 

Terminal 

Remote terminal 

Mailbox 

Operator implicitly disabled 


Mailbox buffer size 

Operator device name size 
Operator device name pointer 
Optional text size 

pry tpnet text pointer 

Flink to next disabled oper 
Blink to last disabled oper 


Size of RQCB in bytes 
_mark; 


} 
eS 


N 1 
OPCOMDEF .SDL;1 16-SEP-1984 16:43:08.78 Page 6 


/* 
os Define Request Control Block (RCB) fields. 


aggregate RCB_AGGREGATE structure prefix rRCB_ fill; 


/t 
ie common header 
FLINK oes unsigned; /* nk to next RCB 
| 
| 


Fli 
BLINK pont maar /* Blink to Last RCB 
SIZE — Siz 
Type of a $3 structure 


e of data structure 
SCOPE byte unsigned; /* Scope of R 
SEQNUM Longword unsigned; /* RCB sequence number 
IDENT Longword unsigned; /* Cluster-wide ident. (seqnum from original create) 
CSID Longword unsigned: /* Cluster system id 
rr unsigned: /* Pointer to NOD structure 


“SYSTEMID character ter th 6; /* SCS System ID 


“SYSTEMIDL a ins igned; /* Low order lLongword 
SYSTEMIDH wor 
end SCS_I 


unsigned; /* High order word 


FILL “word unsigned; /* Spare 

Longword unsigned; /* Pointer to RQCB 

fe STATUS lLongword unsigned; /* Status longword 
RQSTNUM Longword unsigned; /* Operator request number 
TEXTLEN lLongword unsigned; /* Length of request text 
TEXTPTR Longword unsigned; /* Address of request text 
constant SIZE equals .; Size of RCB in bytes 

end RCB_AGGREGATE; 


. 
~ 
so 
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/* 
te Define Operator Control Block (OCB) fiel 
® 


aggregate OCB_AGGREGATE structure prefix OC 


/t 
aS common header 


FLINK Longword unsigned; /* 
BLINK a eal mayen /* 
SIZE word unsigned; /* 
TYPE byte unsigned; /* 
SCOPE byte unsigned; /* 
SEQNUM Longword unsigned; /* 
IDENT lLongword unsigned; /* 
CSID Longword unsigned; /* 
NOD longword unsigned; /* 


SCS_ID union fill; 
“SYSTEMID character her th 6; /* 
SCS_1D_S pote © 
“SYSTEMIDL ao unsigned: 
SYSTEMIDH word unsigned; 
end SCS_ID_S 
end SCS_ID; 
FILLER “word unsigned; /* 
— Longword unsigned; /* 


i: Define OCB status bits. 
STATUS structure longword unsigned; 
FILLER_1 


ti bitfield len th 16 

PRMOPR bitfield mas /* 
MAILBOX bitfield mask: /* 

P end STATUS; 
® 

ATTNMASK1 longword unsigned; /* 
ATTNMASK2  Longword unsigned; /* 
DEVNAMLEN  lLongword unsigned; /* 
DEVNAMPTR lLongword unsigned; /* 
BUF SIZ Longword unsigned; /* 
constant SIZE equals .; /* 


end OCB_AGGREGATE; 
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ds 


B_ fill; 


Forward Link to next OCB 

Backward Link to last OCB 

Size of OCB 

Type of data structure 

Scope of OCB 

OCB sequence number 

Cluster-wide ident (seqnum from original create) 
Cluster system i 

Pointer to NOD structure 


SCS System ID 


/* Low order lLongword 
/* High order word 


Spare 
Address of RQCB 


fill: 
Operator is permanent 
Operator is a mailbox 


Operator attention mask 

Operator attention mask 

Operator device name length 
Operator device name string address 
Operator device buffer size 


Size of OCB in bytes 


| 
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FLINK Longword unsigned; /* 
BLINK ae unsigned; /* 
SIZE word unsigned; /* 
TYPE byte unsigned; /* 
SCOPE byte unsigned; /* 
SEQNUM lLongword unsigned; /* 
IDENT Longword unsigned; /* 
CSID lLongword unsigned; /* 

Lonpyord unsigned; /* 
SCS_ID union fill; 


“SYSTEMID character Length 6; /* 
SCS_ID_S structure fill; 
SYSTEMIDL Lonquord unsigned; 


SYSTEMIDH word unsigned; 
end SCS_ID_S; 
end SCS_I1D; 
FILLER word unsigned; /* 
VIC Longword unsigned; /* 


/* 
. Define OCD status flags. 
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/* 
oS Define Operator Class Descriptor (OCD) fields. 


aggregate OCD_AGGREGATE structure prefix OCD_ fill; 


/* 
te common header 
4 


Flink to first OCB 
Blink to last OCB 
OCD size 

OCD type 

Scope of OCD 

OCD sequence number 


Cluster-wide —- (seqnum from original create) 


Cluster system 
Pointer to NOD structure 


SCS System ID 


/* Low order longword 
/* High order word 


ae. : . 
UIC associated w/ this OCD 


STATUS structure longword unsigned; — 
FILLER 1 bitfield length 16 fili; 
IMPCANTEL bitfield mask; /* At least one request was 
/* implicitly canceled. 


end STATUS; 


NOTIFYMASK1 Longword unsigned; /* 
NOTIFYMASK2 Longword unsigned; /* 
LCB ens unsigned; /* 
FILLER 1 word unsigned fill; /* 
RQSTCOONT word unsigned; /* 
RQSTFLINK longword unsigned; /* 
RQSTBLINK ye unsigned; /* 
FILLER 2. word unsigned fill; /* 
OPERCOONT word unsigned; /* 
ATTNMASK1 longword unsigned; /* 
ATTNMASK2 longword unsigned; /* 
OPERFLINK tLongword unsigned; /* 

NK word unsigned; /* 


OPERBL I long 
COUNTVECTOR character length 128; /* 


constant SIZE eayets J /* 
end OCD_AGGREGATE; 


Operator notification mask 
Operator notification mask 
Pointer to logfile control block 
** 2 spare bytes ** 

Number of outstanding requests 
Flink to first request RQCB 
Blink to last request RQCB 

** 2 spare bytes ** 

Count of operators 

Operator attention mask! 
preseter attention mask2 

FLINK to first OCB 

BLINK to Last OC 

Count vector (64 words) 


Size of OCD in bytes 
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/* 
i Define the cluster node information block (NOD) offsets. 


aggregate NOD_AGGREGATE structure prefix NOD_ fill; 
/* 


/* common header 
/* 


FLINK Longword unsigned; /* 


FLINK to next NOD 


BLINK ee pot | sten /* BLINK to previous NOD | 
SIZE word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
FILL_1 byte unsigned; /* 
SEQNOM Longword unsigned: /* NOD sequence number 
IDENT Longword unsigned; /* Cluster-wide ident (seqnum 4 original create) 
CSID Longword unsigned; /* Cluster system id (for this host) 
NOD tonevord unsigned; /* Pointer to NOD structure 
SCS_ID union f 
SYSTEMID character tec th 6; /* SCS System ID 
SCS_ID_S structure fil 
“SYSTEMIDL ort ins igned: /* Low order longword 
SYSTEMIDH word unsigned; /* High order word 
end SC 
end SCS_ID;~ 
STATE sorte ees /* State of the node 
constant /* Values for NOD_B_STATE, in form NOD_K_STATE_xxx 
STATE -LOCAL, /* This is the local node 
STATE_START /* Recognized by S$GETSYI, but hasn't t responded to messages 
STATE “ACTIVE /* Responded to messages, normally functioning partner 
re SDEPARTED ae /* Has disappeared from $GETSYI 
$s ncre 
constant STATE_MAX e quals NOD _K_STATE ” tt 
FILL_ byte unsigned; “/* Spar 
FILL Longword unsigned; /* 
STATOS structure longword unsigned; /* Status longword 
FILLER_1 bitfield length 16 fill: 
ACK_PERD bitfield mask; /* Waiting for ocknewled ement from this node 
ACK_ATTEMPTED bitfield mask; /* At least one ACK has been sent to this node 
| IOERR_DISPLAYED bitfield mask; /* We have displayed an i/o error message 
NODE _CEAVIN bitfield mask; /* Node is leaving the cluster, flush messages without signaling 
P end STATUS; 
& 
NODE _CSID mere unsigned; /* CSID for the node (for this NOD block) 
NAME” DESC ae ure quadword S sigieds /* Desc for node name 


ae LEN ponguord unaired: 
ongword unsigne 
end RAME_D 
Character length 16; /* 
Quadword unsigned; / 
SCS_ID union fill; 
“NODE_SYSTEMID sherectrt length 6; 
CS_TID 2 et structure fill; 


y STEMIDL Longuord a ie 


NODE-SYSTEMIDH wor 


unsigned; 
end SCS_ID_S; ; 


/* Name Length 
/* Name address 


Buffer for actual name 


* S/W incarnation number 


/* SCS System ID 


/* Low order lLongword 
/* High order word 
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end SCS_ID; 


constant SIZE equals os /* Size of NOD in bytes 
end NOD_AGGREGATE; 


F 
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/* 
fo Define the Message control block (MCB) offsets. 


aggregate MCB_AGGREGATE structure prefix MCB_ fill; 


/e 
te common header 
eo 


NOD Longword unsigned; /* Pointer to NOD structure 
SCS_ID union fill; 

“SYSTEMID character her th 6; /* SCS System ID 

scs_ ~10 6s st gd pote 


ce Uns igned; /* Low order longword 
SYS TEMIDH word unsigned; /* High order word 
end SCS_ID_S; 
end SCS_ID; 
FILLER “word unsigned; /* Spare 
RQ Longword unsigned; /* Pointer to RQCB 
, STATUS lLongword unsigned; /* Status lLongword 
* 
MSGID Longword unsigned; /* Message Identifier 
TEXTLEN lLongword unsigned; /* Message text length 
TEXTPTR lLongword unsigned; /* Message text address 
10SB lLongword unsigned; /* 1/0 status block 
constant SIZE equals .; /* Size of MCB in bytes 


end MCB_AGGREGATE; 


FLINK eas una toned: /* FLINK to next MCB 

BLINK onvers uns veneds /* BLINK to previous MCB 

SIZE ~ unsigned; /* Size of data structure 

TYPE byte unsigned; /* Type of data structure 

SCOPE byte unsigned; /* Scope of MCB 

SEQNUM Longword unsigned; /* MCB sequence number 

IDENT Longword unsigned; /* Cluster-wide ident (seqnum from original create) 
CSID Longword unsigned: /* Cluster system id 
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/* 
Define the BRKTHRU Output Descriptor (BOD) offsets. 


aggregate BOD_AGGREGATE structure prefix BOD_ fill; 


/* 
fo common header 
* 
FLINK longword unsigned; /* FLINK to next BOD 
BLINK ers unsigned; /* BLINK to previous BOD 
word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
p FILL_B byte unsigned; /* 
? 
STATUS structure Longuord unsigned; /* Status longword 
DEAD itfield mask; /* BRKTHRU was very slow 
WAIT bitfield mask; /* A REPLY /WAIT is being executed 
LOCAL _NODE bitfield mask; /* Target is on the local node 
SHORT TIMEOUT bitfield mask; /* Use short timeout period 
; end STATUS; 
o 
COMPLETION_ROUTINE address; /* Address of 1/0 completion routine 
CSID lLongword unsigned; /* CSID of remote node 
NODDSC structure quadword unsigned; /* Node name descriptor 
LEN longword unsigned; /* Node name length 
NODPTR address; /* Node name address 
end NODDSC; 
TRMDSC structure quadword unsigned; /* Terminal name descriptor 
RMLEN Longword unsigned; /* Terminal name length 
TRMPTR address; /* Terminal name address 
P end TRMDSC; 
a 
- Items for parameter List for actual call to SBRKTHRU 
MSGBUF structure quadword unsigned; /* MSGBUF parameter for call 
MSGLEN longword unsigned; /* Message text length 
oe fT is, /* Message text address 
SENDTO structure quadword unsigned; /* SENDTO parameter for call 
SENLEN lLongword unsigned; /* Device name length 
SENPTR address; /* Device name address 
end MSGBUF ; 
SNDTYP longword unsigned; /* Type code for send 
I0SB structure pt unsigned; /* 1/0 status block 
10S80 word unsigned; 
10S81 word unsigned; 
isonet word unsigned; 
oat word unsigned; 
CARCON longword unsigned; /* Carriage control 
FLAGS lLongword unsigned; /* Flags longword 
oi REQID longword unsigned; /* Requestor id 
QUE TIME Quadword unsigned; /* Time that SBRKTHRU issued 
SENBUF character length bs; /* Send name buffer 
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oO 
vw 


NODBUF character Length 18; /* Node name buffer 
TRMBUF character length 20; /* Terminal name buffer 


constant SIZE equals .; /* Size of BOD in bytes 
end BOD_AGGREGATE; 


/* 


' 
i 
¢ 
' 
i 
L 


— 
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/* 
“ Define the Cluster Output Descriptor (COD) offsets. 
aggregate COD_AGGREGATE structure prefix COD_ fill; 


/* common header 


FLINK Longword unsigned; /* FLINK to next COD 
BLINK lLongword unsigned; /* BLINK to previous COD 
SIZE word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
FILL_B byte unsigned; /* 


STATUS structure Longuord unsigned; /* Status longword 
A itfield mask; /* EXESCSP_CALL was very slow 
end STATUS; 


CSID longword unsigned; /* CSID of remote node 
CSD address; /* CSD address 
NOD address; /* Address of the nod for the system 
ERRSTAT longword unsigned; /* Routine status code for error signal 
MSGBUF structure quadword unsigned; /* Message for remote node 
MSGLEN longword unsigned; /* Message text length 
ae address; /* Message text address 
€ : 
/t 
p QUE TIME quadword unsigned; /* Time that FXESCSP_CALL issued 
® 
constant SIZE equals .; /* Size of COD in bytes 


end COD_AGGREGATE; 
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/* 

/* Define Structure Control Block (SCB) fields. 

/* This control block contains information about all 
/* data structures, and is used by the create and 

/* delete data etrycture routines. Each data structre 
/* is represented in the SCB table by an entry of the 
. following form. (LAL = Look Aside List) 


aggregate SCB_AGGREGATE structure prefix SCB_ fill; 
word unsigned; /* Size of data structure 


SIZE 

LAL_ COUNT word unsigned; /* # of Look-aside List entries 
SEQRUM lLongword unsigned; /* Count of blocks created 
FLINK lLongword unsigned; /* Flink to first LAL entry 
BLINK longword unsigned; /* Blink to Last LAL entry 


constant SIZE equals .; /* Size of SCB in bytes 
end SCB_AGGREGATE; 
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/* Define the Request Descriptor Block (RDB) fields. Each 
/* ROB structure contains some control information on a 

/* particular request. Each type of request that is known 
ie y OPCOM is represented by an RDB. 


aggregate RDB_AGGREGATE structure prefix RDB_ fill; 


HANDLER Longword unsigned; /* Address of request handler 
COUNT Longword unsigned; /* Count of requests received 
OPTIONS Longword unsigned; /* Options bit mask 

ATTNMASK1 lLongword unsigned; /* Operator attention mask 
ATTNMASK2  Longword unsigned; /* Operator attention mask 


constant SIZE equals .; Size of RDB in bytes 
end RDB_AGGREGATE; 


eo 
~ 
td 
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{te 

/* syyster Commurreet ent messages. These messages are sent between OPCOMs on 
/* different nodes fe molement oyeter operations. These messages have a short 
‘. header which is identical for all messages. 


/* 
ot Define header for all cluster messages. This fills the first part of the message 


aggregate CLUSTER_MESSAGE structure prefix CLM_ fill; 


RQSTCODE byte unsigned; /* Same as OPCSB_RQSTCODE (OPC$_X_CLUSMSG) 
CLM_CODE byte unsigned; /* Cluster-specific request code 
DS_VERSION byte unsigned; /* Version of data structure 

SW_VERSION byte unsigned; /* Version of OPCOM software 

LENGTH word unsigned; /* Size of structure 

fill_1 word unsigned; /* spare word */ 

CSID lLongword unsigned; /* CSID of sender 


constant SIZE equals .; 


end CLUSTER_MESSAGE; 


oP 


OPCOMDEF .SDL;1 


41 
16-SEP-1984 16:43:08. 78 Page 18 


/* 
/* Define RPYBRD (REPLY broadcast) message fields. This message is sent from REPLY command 
/* to OPCOM. OPCOM then sends the same packet to other nodes with a new request code. 


/* 


aggregate RPYBRD_MESSAGE structure prefix RPYBRD_ fill; 
CLM_HEADER character length CLM_K_SIZE fill; 


gonstent DS_VERSION equals 6; 


OPTIONS structure word unsigned; 
ALL bitfield mask; 
BELL bitfield mask; 
NODE bitfield mask; 
NOTIFY bitfield mask; 
SHUTDOWN bitfield mask; 
TERMINAL bitfield mask; 
URGENT bitfield mask; 
USERNAME bitfield mask; 
WAIT bitfield mask; 
BROAD_LOCAL bitfield mask; 
BROAD_REMOTEALL bitfield mask; 
BROAD_REMOTELST bitfield mask; 
LOCAL_NODE bitiield mask; 
end OPTIONS; 

fille word unsigned; 


/ALL involved 
/BELLS involved 
/NODE 


yp SA of any actions 
/SHUTDOWN 

/TERM involved 
/URGENT 


/USER involved 

/WAIT, do it locally 

Broadcast is going to local node 

Broadcast is going to all remotes 

List of nodes (rpybrd_w_targ_node_len <> 0) 
Command originated on the local node 


/* Length fields point into the text area at the end of the block. Text 


/* fields are concatenated at the end, i 
/* fields. 


/* 

SEND_CSID neers unsigned; 
SEND_TERM_LEN word unsigned; 
SEND_USER_LEN word unsigned; 
SEND_NODE LEN word unsigned; 
MESSAGE _LEN word unsigned; 
OPTIONAL _OFF word unsigned; 
TARG_TERA_LEN word unsigned; 
TARG_USER_LEN word unsigned; 
TARG_ LEN word unsigned; 
TARG_NODE _ OF F word unsigned; 
fill_3 word unsigned; 


ed Formatted message buffer 

FORMAT DESC structure quadword unsigned; 
FORMAT_LEN longword unsigned; 
FORMAT PTR address; 
end FORMAT_DESC; 

constant MiN_SIZE equals .; 

TEXT character length 0; 


end RPYBRD_MESSAGE; 


/* 


the same order as the length 


CSID for sending node 

Terminal name of sender ” 
User name of sender 1 
Name of sending node “ 
Length of message text ' 

Offset to start of optional items 
Terminal name(s) of target terms 

User name of target user(s) 

Name of target node(s) 

Offset to first node 


Min message size 
Text 


OF 


— 
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/* 
/* Define RPYNOT (REPLY broadcast notification) message fields. This message is sent from OPCOM 
back to the node where a reply originated. 


aggregate RPYNOT_MESSAGE structure prefix RPYNOT_ fill; 


CLM_HEADER character length CLM_K_SIZE fill; 
constant DS_VERSION equals 2; 


/* Length fields point into the text area at the end of the block. Text 
/* fields are concatenated at the end, in the same order as the length 
4 fields. 

ee 


TERM_LEN word unsigned; /* Terminal name of sender 
MESSAGE_LEN word unsigned; /* Length of message text 
constant MIN_SIZE equals .; /* Min message size 

TEXT character Length 0; /* Text 


end RPYNOT_MESSAGE; 


/* 

/* Define SHUT message fields. This message is sent from OPCOM to remote nodes to 
/* shut down opcom. 

/* 

aggregate SHUT_MESSAGE structure prefix SHUT_ fill; 


CLM_HEADER character length CLM_K_SIZE fill; 
constant DS_VERSION equals 3; 


constant MIN_SIZE equals .; /* Min message size 
end SHUT_MESSAGE; 


OF 
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/* 
/* Define CLMRQCB message fields. This message is sent oe ag Raggy The message 
/* is yocseee | a copy of the OPCOM RQCB structure, exc all text strings 
. are concatenated to the end of the message (after the C mRace. ? TEXT field). 
® 

aggregate CLMRQCB_MESSAGE structure prefix CLMRQCB_ fill; 

/* 

. The front part consists of the CLM header, then an entire RQCB block. 

CLM_HEADER eperencer Length CLM_K_SIZE fill; 

cons tens DS VERSION equals 2; 

ROCB_OV RLAY character length RQCB K_SIZE; 

Other information necessary to ship RQCBs between nodes 

MCB _MSGID Longword unsigned; /* Message code from MCB 

MCB. STATUS longword unsigned; /* Status code from MCB 

/* Length fields point into the text area at the end of the block. Text 

os syers ds are concatenated at the end, in the same order as the Length 

® 

i. elds. 

constant MIN_SIZE equals .; /* Min message size 

TEXT character Length 0; /* Text 

end CLMRQCB_MESSAGE; 
/* 


/* Define CLMACK message fields. This message is sent between OPCOMs to acknowledge 
a: each other. 
aggregate CLMACK_MESSAGE structure prefix CLMACK_ fill; 

/* 

CLM_HEADER character length CLM_K_SIZE fill; 

constant DS_VERSION equals 2; 


cere Me rs ag unsigned; /* Cluster system id 


CS_ID unio 
SYSTEMID character Len th 6; /* SCS System ID 
SCS_ID_S structure fil 
“SYSTEMIDL oes, ins toned: /* Low order longword 
SYSTEMIDH word unsigned; /* High order word 
end SCS_ID_S 
end SCS_ID; 


constant SIZE equals .; 
end CLMACK_MESSAGE; 


——  — ——- —-- > 
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{+ 

/* Connection manager messages. These messages are sent from cluster 
connection management to the OPCOM process on the local node. 

T- 


/* 
Define header for all CNXMAN messages. 
* 


aggregate CNXMAN_MESSAGE structure prefix CNM, fill; 


RQSTCODE byte unsigned; /* OPC$B_RQSTCODE (value OPC$_X_CNXMAN) 
CNM_COD byte unsigned; /* CNXMAR=specific request code 
DS_VERSION byte unsigned; /* Version of data structure 
SW VERSION byte unsigned; /* Version of CNXMAN software 
LENGTH word unsigned; /* Total length (including extensions) 
fill. word unsigned; /* spare word */ 
CSI sgopyore unsigned; /* CSID associated with message 
SCS_ID union fill; 
SYSTEMID character Length 6; /* 48 bit SCS System ID 
SCS_ID_S structure fill; , 
SYSTEMIDL a unsigned; /* Low order longword 
SYSTEMIDH word unsigned; /* High order word 
end SCS_ID_S; 
end SCS_ID; 
SCSNODE structure quadword unsigned; /* Quadword buffer for node name 
SCSNODEL Longword unsigned; /* Low order name 
SCSNODEH lLongword unsigned; /* High order name 


end SCSNODE; 
constant SIZE equals .; 
end CNXMAN_MESSAGE; 
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/* ety NR cob 4 ds for a perticu ar Festeesves manager message. The 
ODE field in the header implies the appropriate message 

/* entens on? 

aggregate xxx_MESSAGE structure prefix xxx_ fill; 


CNM_HEADER character Length CNM_K_SIZE fill; 


constant DS_VERSION equals 1; 7* Gives us xxx _K_DS_VERSION 
constant MIN_SIZE equals .; /* Min message size 
constant SIZE equals .; /* Total message size 


end xxx_MESSAGE; 


OP 


| 
— | 


OPCOMDEF .SDL;1 16-SEP-1984 16:43:08.7 Page 23 


end_module OPCOMDEF ; 
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